home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Symbols / s-reverse-section < prev    next >
Encoding:
Text File  |  1998-08-11  |  1.8 KB  |  58 lines  |  [TEXT/ScoM]
  1. s-reverse-section  section pattern
  2.  
  3. 0-based
  4.  
  5. This function reverse (retrograde) the contents of the choosen sections.
  6.  
  7. (s-reverse-section '(0 2)
  8.                       '((a b c d e f g h i j k l m n)
  9.                         (a b c d e f g h i j k l m n)
  10.                         (a b c d e f g h i j k l m n)))
  11.  
  12. => ((n m l k j i h g f e d c b a)
  13.     (a b c d e f g h i j k l m n)
  14.     (n m l k j i h g f e d c b a)) 
  15.  
  16. (s-reverse-section
  17.  '(1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35)
  18.  (s-complement
  19.   (c-pitch-to-symbol
  20.    '((c4 e4 g4) (c4 d4 f4 a4)
  21.      (b3 d4 f4 g4) (c4 e4 g4)
  22.      (c4 e4 a4) (c4 d4 f#4 a4)
  23.      (b3 d4 g4) (b3 c4 e4 g4)
  24.      (a3 c4 e4 g4) (a3 c4 d4 f#4)
  25.      (g3 b3 d4 g4) (g3 a#3 c#4 e4)
  26.      (f3 a3 d4) (f3 g#3 b3 d4)
  27.      (e3 g3 c4) (e3 f3 a3 c4)
  28.      (d3 f3 a3 c4) (g2 b2 d3 g3 f3)
  29.      (c3 e3 g3) (c3 e3 g3 a#3)
  30.      (f2 a2 c3 e3) (f#2 a2 c3 d#3)
  31.      (g#2 b2 c3 d3 f3) (g2 b2 d3 f3)
  32.      (g2 c3 e3) (g2 c3 d3 f3)
  33.      (g2 b2 d3 f3) (g2 a2 c3 d#3 f#3)
  34.      (g2 c3 e3) (g2 c3 d3 f3)
  35.      (g2 b3 d3 f3) (c2 e2 g2 a#2)
  36.      (c2 d2 f2 a2)
  37.      (c2 d2 e2 f2 g2 b2)
  38.      (c2 e2 g2 c3)))))
  39.  
  40. => ((b c d f g) (i h g e d b)
  41.     (a b d e g) (g f d c b)
  42.     (b c d f g h i) (i h f e d b)
  43.     (a b d e f g) (g f d c b)
  44.     (-c -b b c d f g) (f e d b -b -c)
  45.     (-e -d -c a b d e f g) (d c a -b -d -e)
  46.     (-g -f -e -c -b a b) (b a -c -d -f -g)
  47.     (-h -g -e -d -c -b) (-b -c -e -f -g)
  48.     (-j -i -g -f -e -c -b) (-i -j -l -m -o -p -q)
  49.     (-l -k -j -h -g) (-d -e -g -h -j -k -l)
  50.     (-s -r -q -o -n -l -k -j) (-k -l -n -o -q -r)
  51.     (-p -o -l -j -i) (-i -j -l -m -o -p -q)
  52.     (-q -p -o -n -l -k -j) (-i -j -l -n -o -p -q)
  53.     (-q -p -o -m -l -j -i) (-h -i -k -l -n -o -q)
  54.     (-q -p -o -n -l -k -j) (-i -j -l -n -o -p -q)
  55.     (-q -p -o -n -m -l -j -i) (-p -q -s -t -v -w -x)
  56.     (-x -v -u -s -r -q)
  57.     (-o -p -q -s -v -x)
  58.     (-x -w -v -t -s -q -p -o -n))